home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
mail
/
AmigaElm_v7.lha
/
c
/
DecodeNeXTmail
< prev
next >
Wrap
AmigaDOS Script File
|
1994-12-11
|
899b
|
50 lines
.key file/a
.bra [
.ket ]
; MultiView fails RC=20 if it's called on an unrecognized file
;
FailAt 21
; easy living
;
set tempname "AmiElm-NeXTmail.$process"
; temporary directory
;
makedir T:${tempname}
assign ${tempname}: ""
cd T:${tempname}
; uudecode file
;
uudecode "[file]"
; for relative path: uudecode "${tempname}:[file]"
; uncompress uudecoded file
;
list LFORMAT="gzip -cdq <*"%N*" >nextmail.tar*Ndelete *"%N*" FORCE QUIET" >T:${tempname}_untar
execute T:${tempname}_untar
delete T:${tempname}_untar FORCE QUIET
; untar uncompressed uudecoded file
;
tar xf nextmail.tar
delete nextmail.tar FORCE QUIET
; view contents
;
list LFORMAT="multiview PUBSCREEN=`getactscreen` *"%N*"" >T:${tempname}_show
execute T:${tempname}_show
delete T:${tempname}_show FORCE QUIET
; wipe out temporary stuff
;
cd ${tempname}:
assign ${tempname}:
delete T:$tempname ALL FORCE QUIET
FailAt 20
endcli